vr2-4-22.wrl

---

[ VRML source code ]

#VRML V2.0 utf8
#vr2-4-22.wrl
#piano keyboard
NavigationInfo {
  type "EXAMINE"
  speed 2
  headlight FALSE
}
DEF Octave Group {
  Transform {
    children [
      DEF WKey Shape {
        appearance Appearance {
          material Material {
            diffuseColor 1 1 1
          }
        }
        geometry Box {
          size 1.9 1.9 10
        }
      }
    ]
  }
  Transform {
    translation 1 0.9 -2
    children [
      DEF BKey Shape {
        appearance Appearance {
          material Material {
            diffuseColor 0.4 0.4 0.4
          }
        }
        geometry Box {
          size 1.2 1.2 6
        }
      }
    ]
  }
  Transform {
    translation 2 0 0
    children [ USE WKey ]
  }
  Transform {
    translation 3 1 -2
    children [ USE BKey ]
  }
  Transform {
    translation 4 0 0
    children [ USE WKey ]
  }
  Transform {
    translation 6 0 0
    children [ USE WKey ]
  }
  Transform {
    translation 7 1 -2
    children [ USE BKey ]
  }
  Transform {
    translation 8 0 0
    children [ USE WKey ]
  }
  Transform {
    translation 9 1 -2
    children [ USE BKey ]
  }
  Transform {
    translation 10 0 0
    children [ USE WKey ]
  }
  Transform {
    translation 11 1 -2
    children [ USE BKey ]
  }
  Transform {
    translation 12 0 0
    children [ USE WKey ]
  }
}
Transform {
  translation 14 0 0
  children [ USE Octave ]
}
Transform {
  translation 28 0 0
  children [ USE Octave ]
}
Transform {
  translation 42 0 0
  children [ USE Octave ]
}
Transform {
  translation 56 0 0
  children [ USE Octave ]
}
Transform {
  translation 70 0 0
  children [ USE Octave ]
}
Transform {
  translation -3.5 0 -2
  children [
    DEF SideWood Shape {
      appearance DEF Wood Appearance {
        texture ImageTexture {
          url  "wood.gif"
        }
        textureTransform TextureTransform {
          rotation 1.57079
       } 
      }
      geometry Box {
        size 5 8 15
      }
    }
  ]
}
Transform {
  translation 85.5 0 -2
  children [ USE SideWood ]
}
#base wood
Transform {
  translation 41 -2.5 -2
  children [
    Shape {
      appearance USE Wood
      geometry Box {
        size 84 3 15
      }
    }
  ]
}
#rear wood
Transform {
  translation 41 1.5 -7
  children [
    Shape {
      appearance USE Wood
      geometry Box {
        size 84 5 5
      }
    }
  ]
}